VBAでダイアログを表示して、
開くファイル名を取得する方法です。
開くファイル名を取得する方法です。
ダイアログで開くファイル名の取得
Application.GetOpenFilename([FileFilter],
[FilterIndex],
[Title],
[ButtonText],
[MultiSelect])
FileFilter：
開くファイルの絞り込む条件。ワイルドカードの使用可能
FilterIndex：
[FileFilter]で指定した条件のはじめに選択する番号
（１から指定します。存在しない番号をしていすると１になります）
ButtonText：
ダイアログのタイトルです。
FileFilter：
マックでのみ指定できるようです。
MultiSelect：
複数ファイルの選択ができるかです。
サンプル
Private Sub CommandButton1_Click()'変数宣言
Dim strFname As String
' ダイアログを表示してファイル名を取得
strFname = Application.GetOpenFilename( _
"すべて１(*.*),*.*,すべて２(*.*),*.*", _
2, _
"ダイアログのタイトル", _
"", _
False)
' キャンセルが選ばれた場合
If strFname = "False" Then
MsgBox "ファイルを選択してください。", vbOKOnly + vbExclamation, "処理中止"
Exit Sub
End If
MsgBox strFname
End Sub
Private Sub CommandButton2_Click()
'ファイルの選択
Dim varFileName As Variant
' ダイアログを表示してファイル名を取得
varFileName = Application.GetOpenFilename( _
"すべて(*.*),*.*", _
1, _
"ダイアログのタイトル", _
"", _
True)
' キャンセルが選ばれた場合
If IsArray(varFileName) = False Then
MsgBox "ファイルを選択してください。", vbOKOnly + vbExclamation, "処理中止"
Exit Sub
End If
Dim strOut As String
Dim nCnt As Integer
strOut = ""
For nCnt = 1 To UBound(varFileName)
strOut = strOut & varFileName(nCnt) & vbCrLf
Next
MsgBox strOut
End Sub
実行前
実行後
単独ファイル
複数ファイル
参考
アフィリエイトをはじめるなら、こちらから登録できます。
